File:  of Tape: Various/System-Tapes/systemband

(Source file text) 

---

/TD8E Dectae DUMP Progam
ac block.
 Like tis: (WvdM)
(waslike this WdM)
 run start t 0200.
ould be unning firs.
bedisplayed i the AC
 The PC rogram willprint out te bad locaton if an eror occurs
constantsbelow
        IE2=6005 IND
TAD
        TP2=6004 OUTA
BSTACT--
/WHICH ISCOMPATIBLE ITH OS/8 DEICE HANDLERCALLING
L BE USED
SET P FOR THE SANDARD
SETTING
 WIL BE SELECTE
CAUES ASSEMBLYIN A DIFFERNT
R.PERMISSIBLEVALUES FOR FIELD ARE 0TO 7.
SARE 00-70.
D BT 10 CAN
NDLER OR UNITS 2& TO RESIDE N
     WDSBLK=400
/
IELD=FIELD SSEMBLED IN
/       JM ENTRY      /AC ON ENTR=4000 IS UNT 1
1=WRTE
                    BI 10: # OF WRDS/BLOCK.
OPERATIN
UMER
TH CLEAR A.
'SARE:
OAD COMMAD REGISTER
6X,67X,AND 674X.
/THE OTHER CONTROL UNTS 2-7.
T POSITIO
INT DATA REGISER
      /YES
)

D C70        /GETFIELD FOR XER
/WAT FOR SLOW ELECT

AND START TE MOTION.
    /ET AT RWCOM GETCHK SET IT.
U
DUNIT        PUT IN 'GO AND UNIT #
        SDL           /LOOK FOR LOCK NO.
LINES TO LOK
   AND C374       /ISOLAE MARK TRAC BITS
Z CLA
OCK. THIS
                      /ALLOWS TUNAROUND ANDUP TO SPEED
ZL SNA LA     /NO,BUT ARE WE EADED FOR T?
    MP GO         /YES..TUN US AROUN
/KEEPLAST CHECKSM ERROR
   ISZ DA0
 RETURN
, RDQUA

RVGRD, SDSS
EP LOKING
 SDRC
 ERROR LINK MUSTBE ON
MS WRQUAD     /PUT 77IN REVERSE HECKSUM
      TADC200
DCA STFLD1
STFLD1, NO
  /I NO, WRITE  0 WORD
    /ALOW CHECKSUMTO BE WRITTN
   AD K77
 WE GO
UFF	AT END OF FELD?
    RDF
LK-1, EAD AND
CKSUM T
  /WRITE OUT  12 BIT WOR
         /SDLDDOESN'T CLER AC
   /EQUIVALECE OF ALL WRDS IN A REORD
NDNSE LATER.
.B)
        TA EQUTMP     /A.EQU.B=(+(.NOT.B))-*(A.AND.(.NO.B))
       JMS EQFUN
CK TO FIRSTPAGE
 FOR SETUP
NUSNUMBER OF FELDS TO USE
ERRCN2, 0	/COUNTING ERORS
EN TO PC
6211
 ROUTNE
E BY DTA0 ROTINE
SIGNAL MEMRY ERROR!!!
FINISH, HT            /NORMAL GOD HALT OR SLERR

       RAR
LTIPLYBY NUMER O FIELDS AVALABLE
P, CLA
 BLOCKSLEFT
	/TO NUMBE OF BLOCKS EQUEST

th FF
SET UP CUNTER OF NMBER OF BLOKS XFERRED
 /NO
AD CHSM       / end checksu in two byts, low bitsfirst



A LOC
o send
EASO
BL
ia port
  TAD CHKM       / Kep checksu of all word sent
     TAD I OC
TOS/8 BOUNDAY?
,NOP
	/ New: Hih 4 bits tolow byte 2
 C200
F
       / Send bte out seril port

---